#! /usr/bin/perl

use diagnostics;
use strict;
use Class::Date qw(now date);


my $date = now;
print $date->epoch;
my $file = '/home/clock/a';
my $a = (stat($file))[9];
print "\n".$a."\n";
my $gg = date($a);


print $gg;